Pensieve header: Plotting Sin[n]

Clear[s];
S[0]=0.;
S[n_] := S[n] = S[n-1]+Sin[n];

ListPlot[S /@ Range[1000]]

ListPlot[S /@ Range[10000]]

ListPlot[Sin /@ Range[1000]]

ListPlot[S /@ Range[10000]]